home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8705.d64 / bild zeigen (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  757b  |  23 lines
  1. 10 FORK=0TO44:READA:POKE820+K,A:NEXT
  2. 30 REM  ^ DATAS EINLESEN
  3. 50 INPUT"BILDNAME ";NA$:SYS(57812)"H"+NA$,8,0:SYS820
  4. 70 REM  ^ HIRES LADEN
  5. 90 CI=PEEK(56576):VI=PEEK(53272)
  6. 110 REM ^ REGISTER SICHERN
  7. 130 SYS(57812)"F"+NA$,8,0:SYS829
  8. 150 REM ^ FARBE LADEN
  9. 170 POKE53265,11:POKE53280,0:POKE53281,PEEK(51152)
  10. 190 REM ^ BILDSCHIRMFARBE SETZEN
  11. 210 POKE56576,148:POKE53272,9
  12. 230 REM ^ NEUE VIC BANK ANSPRECHEN
  13. 250 POKE53270,216:SYS838:POKE53265,59
  14. 270 REM ^ FARBE SETZEN,BILD EINSCHALTEN
  15. 290 GETR$:IFR$=""ANDPEEK(653)=0THEN290
  16. 310 REM ^ AUF REAKTION WARTEN
  17. 330 POKE53265,11:POKE56576,CI:POKE53272,VI
  18. 340 POKE53270,200:POKE53281,0:PRINT"[147]";:POKE53265,27
  19. 360 REM ^ AUSSCHALTEN DES BILDES
  20. 380 DATA160,224,162,0,169,0,76,213,255,160,192,162,0,162,0,76,213,255,160,195
  21. 390 DATA162,232,132,96,134,95,160,199,162,208,132,91,134,90,160,219,162,232
  22. 400 DATA132,89,134,88,76,191,163
  23.